home *** CD-ROM | disk | FTP | other *** search
/ Clickx 115 / Clickx 115.iso / software / tools / windows / tails-i386-0.16.iso / live / filesystem.squashfs / usr / share / gettext / intl / printf-args.c < prev    next >
Encoding:
C/C++ Source or Header  |  2010-09-19  |  6.5 KB  |  189 lines
  1. /* Decomposed printf argument list.
  2.    Copyright (C) 1999, 2002-2003, 2005-2007 Free Software Foundation, Inc.
  3.  
  4.    This program is free software; you can redistribute it and/or modify it
  5.    under the terms of the GNU Library General Public License as published
  6.    by the Free Software Foundation; either version 2, or (at your option)
  7.    any later version.
  8.  
  9.    This program is distributed in the hope that it will be useful,
  10.    but WITHOUT ANY WARRANTY; without even the implied warranty of
  11.    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  12.    Library General Public License for more details.
  13.  
  14.    You should have received a copy of the GNU Library General Public
  15.    License along with this program; if not, write to the Free Software
  16.    Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301,
  17.    USA.  */
  18.  
  19. /* This file can be parametrized with the following macros:
  20.      ENABLE_UNISTDIO    Set to 1 to enable the unistdio extensions.
  21.      PRINTF_FETCHARGS   Name of the function to be defined.
  22.      STATIC             Set to 'static' to declare the function static.  */
  23.  
  24. #ifndef PRINTF_FETCHARGS
  25. # include <config.h>
  26. #endif
  27.  
  28. /* Specification.  */
  29. #ifndef PRINTF_FETCHARGS
  30. # include "printf-args.h"
  31. #endif
  32.  
  33. #ifdef STATIC
  34. STATIC
  35. #endif
  36. int
  37. PRINTF_FETCHARGS (va_list args, arguments *a)
  38. {
  39.   size_t i;
  40.   argument *ap;
  41.  
  42.   for (i = 0, ap = &a->arg[0]; i < a->count; i++, ap++)
  43.     switch (ap->type)
  44.       {
  45.       case TYPE_SCHAR:
  46.         ap->a.a_schar = va_arg (args, /*signed char*/ int);
  47.         break;
  48.       case TYPE_UCHAR:
  49.         ap->a.a_uchar = va_arg (args, /*unsigned char*/ int);
  50.         break;
  51.       case TYPE_SHORT:
  52.         ap->a.a_short = va_arg (args, /*short*/ int);
  53.         break;
  54.       case TYPE_USHORT:
  55.         ap->a.a_ushort = va_arg (args, /*unsigned short*/ int);
  56.         break;
  57.       case TYPE_INT:
  58.         ap->a.a_int = va_arg (args, int);
  59.         break;
  60.       case TYPE_UINT:
  61.         ap->a.a_uint = va_arg (args, unsigned int);
  62.         break;
  63.       case TYPE_LONGINT:
  64.         ap->a.a_longint = va_arg (args, long int);
  65.         break;
  66.       case TYPE_ULONGINT:
  67.         ap->a.a_ulongint = va_arg (args, unsigned long int);
  68.         break;
  69. #if HAVE_LONG_LONG_INT
  70.       case TYPE_LONGLONGINT:
  71.         ap->a.a_longlongint = va_arg (args, long long int);
  72.         break;
  73.       case TYPE_ULONGLONGINT:
  74.         ap->a.a_ulonglongint = va_arg (args, unsigned long long int);
  75.         break;
  76. #endif
  77.       case TYPE_DOUBLE:
  78.         ap->a.a_double = va_arg (args, double);
  79.         break;
  80.       case TYPE_LONGDOUBLE:
  81.         ap->a.a_longdouble = va_arg (args, long double);
  82.         break;
  83.       case TYPE_CHAR:
  84.         ap->a.a_char = va_arg (args, int);
  85.         break;
  86. #if HAVE_WINT_T
  87.       case TYPE_WIDE_CHAR:
  88.         /* Although ISO C 99 7.24.1.(2) says that wint_t is "unchanged by
  89.            default argument promotions", this is not the case in mingw32,
  90.            where wint_t is 'unsigned short'.  */
  91.         ap->a.a_wide_char =
  92.           (sizeof (wint_t) < sizeof (int)
  93.            ? va_arg (args, int)
  94.            : va_arg (args, wint_t));
  95.         break;
  96. #endif
  97.       case TYPE_STRING:
  98.         ap->a.a_string = va_arg (args, const char *);
  99.         /* A null pointer is an invalid argument for "%s", but in practice
  100.            it occurs quite frequently in printf statements that produce
  101.            debug output.  Use a fallback in this case.  */
  102.         if (ap->a.a_string == NULL)
  103.           ap->a.a_string = "(NULL)";
  104.         break;
  105. #if HAVE_WCHAR_T
  106.       case TYPE_WIDE_STRING:
  107.         ap->a.a_wide_string = va_arg (args, const wchar_t *);
  108.         /* A null pointer is an invalid argument for "%ls", but in practice
  109.            it occurs quite frequently in printf statements that produce
  110.            debug output.  Use a fallback in this case.  */
  111.         if (ap->a.a_wide_string == NULL)
  112.           {
  113.             static const wchar_t wide_null_string[] =
  114.               {
  115.                 (wchar_t)'(',
  116.                 (wchar_t)'N', (wchar_t)'U', (wchar_t)'L', (wchar_t)'L',
  117.                 (wchar_t)')',
  118.                 (wchar_t)0
  119.               };
  120.             ap->a.a_wide_string = wide_null_string;
  121.           }
  122.         break;
  123. #endif
  124.       case TYPE_POINTER:
  125.         ap->a.a_pointer = va_arg (args, void *);
  126.         break;
  127.       case TYPE_COUNT_SCHAR_POINTER:
  128.         ap->a.a_count_schar_pointer = va_arg (args, signed char *);
  129.         break;
  130.       case TYPE_COUNT_SHORT_POINTER:
  131.         ap->a.a_count_short_pointer = va_arg (args, short *);
  132.         break;
  133.       case TYPE_COUNT_INT_POINTER:
  134.         ap->a.a_count_int_pointer = va_arg (args, int *);
  135.         break;
  136.       case TYPE_COUNT_LONGINT_POINTER:
  137.         ap->a.a_count_longint_pointer = va_arg (args, long int *);
  138.         break;
  139. #if HAVE_LONG_LONG_INT
  140.       case TYPE_COUNT_LONGLONGINT_POINTER:
  141.         ap->a.a_count_longlongint_pointer = va_arg (args, long long int *);
  142.         break;
  143. #endif
  144. #if ENABLE_UNISTDIO
  145.       /* The unistdio extensions.  */
  146.       case TYPE_U8_STRING:
  147.         ap->a.a_u8_string = va_arg (args, const uint8_t *);
  148.         /* A null pointer is an invalid argument for "%U", but in practice
  149.            it occurs quite frequently in printf statements that produce
  150.            debug output.  Use a fallback in this case.  */
  151.         if (ap->a.a_u8_string == NULL)
  152.           {
  153.             static const uint8_t u8_null_string[] =
  154.               { '(', 'N', 'U', 'L', 'L', ')', 0 };
  155.             ap->a.a_u8_string = u8_null_string;
  156.           }
  157.         break;
  158.       case TYPE_U16_STRING:
  159.         ap->a.a_u16_string = va_arg (args, const uint16_t *);
  160.         /* A null pointer is an invalid argument for "%lU", but in practice
  161.            it occurs quite frequently in printf statements that produce
  162.            debug output.  Use a fallback in this case.  */
  163.         if (ap->a.a_u16_string == NULL)
  164.           {
  165.             static const uint16_t u16_null_string[] =
  166.               { '(', 'N', 'U', 'L', 'L', ')', 0 };
  167.             ap->a.a_u16_string = u16_null_string;
  168.           }
  169.         break;
  170.       case TYPE_U32_STRING:
  171.         ap->a.a_u32_string = va_arg (args, const uint32_t *);
  172.         /* A null pointer is an invalid argument for "%llU", but in practice
  173.            it occurs quite frequently in printf statements that produce
  174.            debug output.  Use a fallback in this case.  */
  175.         if (ap->a.a_u32_string == NULL)
  176.           {
  177.             static const uint32_t u32_null_string[] =
  178.               { '(', 'N', 'U', 'L', 'L', ')', 0 };
  179.             ap->a.a_u32_string = u32_null_string;
  180.           }
  181.         break;
  182. #endif
  183.       default:
  184.         /* Unknown type.  */
  185.         return -1;
  186.       }
  187.   return 0;
  188. }
  189.